home *** CD-ROM | disk | FTP | other *** search
/ Old Testament Foundatiosn with Philip Yancey / Old Testament Foundatiosn with Philip Yancey - Disc 2.iso / pc / data / notes.dir / 00039_mscr3.ls < prev    next >
Encoding:
Text File  |  1996-09-09  |  841 b   |  32 lines
  1. on pressNoteButton
  2.   set spriteNum to the clickOn
  3.   set upCast to the castNum of sprite spriteNum
  4.   set downCast to the number of cast (the name of cast upCast & ".down")
  5.   puppetSprite(spriteNum, 1)
  6.   puppetSound("MouseDown.aif")
  7.   repeat while the mouseDown
  8.     if rollOver(spriteNum) then
  9.       set the castNum of sprite spriteNum to downCast
  10.     else
  11.       set the castNum of sprite spriteNum to upCast
  12.     end if
  13.     updateStage()
  14.   end repeat
  15.   if rollOver(spriteNum) then
  16.     startTimer()
  17.     repeat while the timer < 20
  18.       set the castNum of sprite spriteNum to downCast
  19.       updateStage()
  20.     end repeat
  21.     set the castNum of sprite spriteNum to upCast
  22.     updateStage()
  23.     puppetSprite(spriteNum, 0)
  24.     puppetSound("MouseUp.aif")
  25.     updateStage()
  26.     set RollOn to 1
  27.   else
  28.     set RollOn to 0
  29.   end if
  30.   return RollOn
  31. end
  32.